unit UPessoa;

interface

type
  TPessoa = class

    private
      FNome: String;
      FNascimento: TDateTime;

    protected
    public
      function GetNome: String;
      procedure SetNome(const Valor: String);

      function GetNascimento: TDateTime;
      procedure SetNascimento(const Valor: TDateTime);
  end;

implementation

{ TPessoa }

function TPessoa.GetNascimento: TDateTime;
begin
  Result := FNascimento;
end;

function TPessoa.GetNome: String;
begin
  Result := FNome;
end;

procedure TPessoa.SetNascimento(const Valor: TDateTime);
begin
  FNascimento := Valor;
end;

procedure TPessoa.SetNome(const Valor: String);
begin
  FNome := Valor;
end;

end.
 